home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update33.zoo / gcc-250 / gcc-250.diff < prev    next >
Encoding:
Text File  |  1993-10-26  |  63.5 KB  |  2,343 lines
  1. diff -rc gcc-2.5.0/bc-emit.c /net/acae127/home/bammi/usr2/gcc/bc-emit.c
  2. *** gcc-2.5.0/bc-emit.c    Tue Oct 12 20:16:34 1993
  3. --- /net/acae127/home/bammi/usr2/gcc/bc-emit.c    Tue Oct 26 20:23:08 1993
  4. ***************
  5. *** 223,229 ****
  6. --- 223,234 ----
  7.         seg->data = xrealloc (seg->data, seg->alloc);
  8.       }
  9.   
  10. + #ifdef atarist
  11. +   /* figure out later where memset dissappeared to in gnu.olb */
  12. +   bzero (seg->data + seg->size, size);
  13. + #else
  14.     memset (seg->data + seg->size, 0, size);
  15. + #endif
  16.     seg->size += size;
  17.   }
  18.   
  19. diff -rc gcc-2.5.0/c-lex.c /net/acae127/home/bammi/usr2/gcc/c-lex.c
  20. *** gcc-2.5.0/c-lex.c    Wed Sep 29 01:42:10 1993
  21. --- /net/acae127/home/bammi/usr2/gcc/c-lex.c    Tue Oct 26 08:21:29 1993
  22. ***************
  23. *** 473,484 ****
  24. --- 473,486 ----
  25.       case '\r':
  26.         /* ANSI C says the effects of a carriage return in a source file
  27.            are undefined.  */
  28. + #ifndef atarist /* but not on an atarist, though hopefully we should'nt see it */
  29.         if (pedantic && !newline_warning)
  30.           {
  31.             warning ("carriage return in source file");
  32.             warning ("(we only warn about the first carriage return)");
  33.             newline_warning = 1;
  34.           }
  35. + #endif
  36.         c = getc (finput);
  37.         break;
  38.   
  39. diff -rc gcc-2.5.0/calls.c /net/acae127/home/bammi/usr2/gcc/calls.c
  40. *** gcc-2.5.0/calls.c    Fri Oct  8 18:26:59 1993
  41. --- /net/acae127/home/bammi/usr2/gcc/calls.c    Tue Oct 26 08:21:38 1993
  42. ***************
  43. *** 2099,2104 ****
  44. --- 2099,2110 ----
  45.   
  46.     argvec = (struct arg *) alloca (nargs * sizeof (struct arg));
  47.   
  48. + /* how would you do this RIGHT ?? fake a DECL node? dunno... */
  49. + #ifdef ENCODE_SECTION_INFO
  50. +   /* mark it as a function (to be in the text section that is) */
  51. +   SYMBOL_REF_FLAG (fun) = 1;
  52. + #endif
  53. + 
  54.     INIT_CUMULATIVE_ARGS (args_so_far, NULL_TREE, fun);
  55.   
  56.     args_size.constant = 0;
  57. diff -rc gcc-2.5.0/cccp.c /net/acae127/home/bammi/usr2/gcc/cccp.c
  58. *** gcc-2.5.0/cccp.c    Wed Oct 20 19:12:25 1993
  59. --- /net/acae127/home/bammi/usr2/gcc/cccp.c    Tue Oct 26 20:31:18 1993
  60. ***************
  61. *** 77,82 ****
  62. --- 77,83 ----
  63.   #include <stdio.h>
  64.   #include <signal.h>
  65.   
  66. + #ifndef atarist
  67.   #ifndef VMS
  68.   #ifndef USG
  69.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  70. ***************
  71. *** 86,95 ****
  72. --- 87,110 ----
  73.   #include <fcntl.h>
  74.   #endif /* USG */
  75.   #endif /* not VMS */
  76. + #endif /* not atarist */
  77.   
  78.   /* This defines "errno" properly for VMS, and gives us EACCES. */
  79.   #include <errno.h>
  80.   
  81. + /* atarist  specific defs and includes */
  82. + #ifdef atarist
  83. + #include <time.h>
  84. + #include <file.h>
  85. + #include <string.h>
  86. + #include <stddef.h>
  87. + 
  88. + long _stksize = -1L;    /* want big stack cause include files
  89. +                    get alloca'ed there */
  90. + 
  91. + #define read(fd,buf,size)    _text_read(fd,buf,size)
  92. + #endif /* atarist */
  93. + 
  94.   /* VMS-specific definitions */
  95.   #ifdef VMS
  96.   #include <time.h>
  97. ***************
  98. *** 979,984 ****
  99. --- 994,1020 ----
  100.   /* Nonzero means -I- has been seen,
  101.      so don't look for #include "foo" the source-file directory.  */
  102.   static int ignore_srcdir;
  103. +  
  104. + #ifdef atarist
  105. + /* the following dingus is used in place of some calls to bcopy,
  106. +    to ensure that backslashes get properly slashified when getting
  107. +    shoved into strings.  Note that it returns the new pointer!!
  108. +    There ought to be a better way... */
  109. + 
  110. + U_CHAR * slashifying_bcopy(from_buf, to_buf, nbytes)
  111. + U_CHAR * from_buf, * to_buf;
  112. + int nbytes;
  113. + {
  114. +   for ( ; nbytes > 0 ; )
  115. +     {
  116. +     if(*from_buf == '\\')
  117. +         *to_buf++ = '\\';
  118. +     *to_buf++ = *from_buf++;
  119. +     nbytes--;
  120. +     }
  121. +   return(to_buf);
  122. + }
  123. + #endif        /* atarist */
  124.   
  125.   int
  126.   main (argc, argv)
  127. ***************
  128. *** 1021,1026 ****
  129. --- 1057,1068 ----
  130.     /* Target-name to write with the dependency information.  */
  131.     char *deps_target = 0;
  132.   
  133. + #ifdef atarist
  134. + #define GCC_INCLUDE_DIR "./"
  135. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  136. + /*  _malloczero(1); */     /* zero mallocs by default */
  137. + #endif  
  138. + 
  139.   #ifdef RLIMIT_STACK
  140.     /* Get rid of any avoidable limit on stack size.  */
  141.     {
  142. ***************
  143. *** 1343,1352 ****
  144. --- 1385,1400 ----
  145.       break;
  146.   
  147.         case 'v':
  148. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  149. + #include "PatchLev.h"
  150. +     fprintf (stderr, "GNU CPP-atariST version %s Patchlevel %s",
  151. +          version_string, PatchLevel);
  152. + #else
  153.       fprintf (stderr, "GNU CPP version %s", version_string);
  154.   #ifdef TARGET_VERSION
  155.       TARGET_VERSION;
  156.   #endif
  157. + #endif
  158.       fprintf (stderr, "\n");
  159.       verbose = 1;
  160.       break;
  161. ***************
  162. *** 1480,1485 ****
  163. --- 1528,1534 ----
  164.       }
  165.     }
  166.   
  167. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  168.     /* Add dirs from CPATH after dirs from -I.  */
  169.     /* There seems to be confusion about what CPATH should do,
  170.        so for the moment it is not documented.  */
  171. ***************
  172. *** 1489,1494 ****
  173. --- 1538,1544 ----
  174.     p = (char *) getenv ("CPATH");
  175.     if (p != 0 && ! no_standard_includes)
  176.       path_include (p);
  177. + #endif
  178.   
  179.     /* Now that dollars_in_ident is known, initialize is_idchar.  */
  180.     initialize_char_syntax ();
  181. ***************
  182. *** 1607,1614 ****
  183.     { /* read the appropriate environment variable and if it exists
  184.          replace include_defaults with the listed path. */
  185.       char *epath = 0;
  186.       switch ((objc << 1) + cplusplus)
  187. !       {
  188.         case 0:
  189.       epath = getenv ("C_INCLUDE_PATH");
  190.       break;
  191. --- 1657,1712 ----
  192.     { /* read the appropriate environment variable and if it exists
  193.          replace include_defaults with the listed path. */
  194.       char *epath = 0;
  195. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  196. +     int db_hack = 0;
  197. +     char *e1 = getenv("GNUINC"), *e2 = getenv("GNULIB"),
  198. +          *e3 = getenv("GXXINC");
  199. + 
  200. + 
  201. +     /* Get length of the alloc'ed array. (Yeah I know, I might alloc
  202. +      * a character more than I need but who cares...
  203. +      */
  204. +     if (cplusplus && e3)
  205. +     db_hack += strlen (e3);
  206. +     if (e1)
  207. +         db_hack += strlen (e1) + 1;
  208. +     if (e2)
  209. +         db_hack += strlen (e1) + 1;
  210. + 
  211. +     if (db_hack) {
  212. +     epath = alloca (db_hack + 1);
  213. +     *epath = '\0';
  214. +     db_hack = 0;
  215. + 
  216. +     /* Concatenate the paths together. */
  217. +     if (cplusplus && e3) {
  218. +         strcpy (epath, e3);
  219. +         db_hack = 1;
  220. +     }
  221. +     if (e1) {
  222. +         if (db_hack) {
  223. +         strcat (epath, PATH_SEP_STR);
  224. +         }
  225. +         strcat (epath, e1);
  226. +         db_hack = 1;
  227. +     }
  228. +     if (e2) {
  229. +         if (db_hack) {
  230. +         strcat (epath, PATH_SEP_STR);
  231. +         }
  232. +         strcat (epath, e2);
  233. +     }
  234. +     }
  235. + 
  236. + #ifdef atarist
  237. +     if (epath)
  238. +         for (e3=epath; *e3; e3++)    /* Use one kind of path separator */
  239. +         if (*e3 == ';')
  240. +         *e3 = PATH_SEPARATOR;
  241. + #endif
  242. + #else
  243.       switch ((objc << 1) + cplusplus)
  244. !     {
  245.         case 0:
  246.       epath = getenv ("C_INCLUDE_PATH");
  247.       break;
  248. ***************
  249. *** 1621,1627 ****
  250.         case 3:
  251.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  252.       break;
  253. !       }
  254.       /* If the environment var for this language is set,
  255.          add to the default list of include directories.  */
  256.       if (epath) {
  257. --- 1719,1727 ----
  258.         case 3:
  259.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  260.       break;
  261. !     }
  262. ! #endif
  263. ! 
  264.       /* If the environment var for this language is set,
  265.          add to the default list of include directories.  */
  266.       if (epath) {
  267. ***************
  268. *** 1675,1687 ****
  269. --- 1775,1797 ----
  270.     if (!no_standard_includes) {
  271.       struct default_include *p = include_defaults;
  272.       char *specd_prefix = include_prefix;
  273. + #ifdef GCC_INCLUDE_DIR
  274.       char *default_prefix = savestring (GCC_INCLUDE_DIR);
  275. + #else
  276. +     char *default_prefix = savestring ("./");
  277. + #endif
  278.       int default_len = 0;
  279.       /* Remove the `include' from /usr/local/lib/gcc.../include.  */
  280.       if (!strcmp (default_prefix + strlen (default_prefix) - 8, "/include")) {
  281.         default_len = strlen (default_prefix) - 7;
  282.         default_prefix[default_len] = 0;
  283.       }
  284. + #ifdef atarist
  285. +     else if (!strcmp (default_prefix + strlen (default_prefix) - 8, "\\include")) {
  286. +       default_len = strlen (default_prefix) - 7;
  287. +       default_prefix[default_len] = 0;
  288. +     }
  289. + #endif
  290.       /* Search "translated" versions of GNU directories.
  291.          These have /usr/local/lib/gcc... replaced by specd_prefix.  */
  292.       if (specd_prefix != 0 && default_len != 0)
  293. ***************
  294. *** 1823,1829 ****
  295. --- 1933,1943 ----
  296.         char *p1 = p;
  297.         /* Discard all directory prefixes from P.  */
  298.         while (*p1) {
  299. + #ifdef atarist
  300. +     if ((*p1 == '/') || (*p1 == '\\'))
  301. + #else
  302.       if (*p1 == '/')
  303. + #endif
  304.         p = p1 + 1;
  305.       p1++;
  306.         }
  307. ***************
  308. *** 1997,2002 ****
  309. --- 2111,2117 ----
  310.     return 0;
  311.   }
  312.   
  313. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  314.   /* Given a colon-separated list of file names PATH,
  315.      add all the names to the search path for include files.  */
  316.   
  317. ***************
  318. *** 2044,2049 ****
  319. --- 2159,2165 ----
  320.         p++;
  321.       }
  322.   }
  323. + #endif /* atarist */
  324.   
  325.   /* Pre-C-Preprocessor to translate ANSI trigraph idiocy in BUF
  326.      before main CCCP processing.  Name `pcp' is also in honor of the
  327. ***************
  328. *** 3230,3235 ****
  329. --- 3346,3352 ----
  330.     assertions_flag = save_assertions_flag;
  331.     return obuf;
  332.   }
  333. + /* #endif */
  334.   
  335.   /*
  336.    * Process a # directive.  Expects IP->bufp to point after the '#', as in
  337. ***************
  338. *** 3692,3699 ****
  339. --- 3809,3825 ----
  340.   
  341.         if (string)
  342.       {
  343. + #ifndef atarist
  344.         buf = (char *) alloca (3 + 4 * strlen (string));
  345.         quote_string (buf, string);
  346. + #else
  347. +           buf = (char *) alloca (16 + strlen (string));
  348. +           {
  349. +           char *tbuf = (char *) alloca (16 + strlen (string));
  350. +           (void) slashifying_bcopy(string, tbuf, strlen(string)+1);
  351. +           sprintf (buf, "\"%s\"", tbuf);
  352. +           }
  353. + #endif /* atarist */
  354.       }
  355.         else
  356.       buf = "\"\"";
  357. ***************
  358. *** 3929,3935 ****
  359. --- 4055,4066 ----
  360.           dsp[0].next = search_start;
  361.           search_start = dsp;
  362.   #ifndef VMS
  363. + #ifdef atarist
  364. +         if((ep = rindex(nam, '\\')) == NULL)
  365. +         ep = rindex(nam, '/');
  366. + #else
  367.           ep = rindex (nam, '/');
  368. + #endif
  369.   #else                /* VMS */
  370.           ep = rindex (nam, ']');
  371.           if (ep == NULL) ep = rindex (nam, '>');
  372. ***************
  373. *** 4009,4017 ****
  374. --- 4140,4162 ----
  375.   
  376.     /* If specified file name is absolute, just open it.  */
  377.   
  378. + #ifdef atarist
  379. +   if ((*fbeg == '\\') || (*fbeg == '/')) {
  380. +     if(fbeg[2] == ':')
  381. +     { /* allow "\D:\xxx" */
  382. +         strncpy (fname, fbeg+1, flen-1);
  383. +         fname[flen-1] = 0;
  384. +     }
  385. +     else
  386. +     {  /* allow "\lib\xxx" == "\currentdrive:\lib\xxx" */
  387. +         strncpy (fname, fbeg, flen);
  388. +         fname[flen] = 0;
  389. +     }
  390. + #else
  391.     if (*fbeg == '/') {
  392.       strncpy (fname, fbeg, flen);
  393.       fname[flen] = 0;
  394. + #endif
  395.       if (redundant_include_p (fname))
  396.         return 0;
  397.       if (importing)
  398. ***************
  399. *** 4032,4038 ****
  400. --- 4177,4187 ----
  401.       if (searchptr->fname[0] == 0)
  402.         continue;
  403.       strcpy (fname, searchptr->fname);
  404. + #ifdef atarist
  405. +     strcat (fname, "\\");
  406. + #else
  407.       strcat (fname, "/");
  408. + #endif
  409.       fname[strlen (fname) + flen] = 0;
  410.         } else {
  411.       fname[0] = 0;
  412. ***************
  413. *** 4145,4161 ****
  414.   
  415.       if (!no_precomp)
  416.         do {
  417.       sprintf (pcftry, "%s%d", fname, pcfnum++);
  418.       
  419.       pcf = open (pcftry, O_RDONLY, 0666);
  420.       if (pcf != -1)
  421.         {
  422.           struct stat s;
  423.   
  424.           fstat (pcf, &s);
  425.           if (bcmp (&stat_f.st_ino, &s.st_ino, sizeof (s.st_ino))
  426.           || stat_f.st_dev != s.st_dev)
  427. !           {
  428.           pcfbuf = check_precompiled (pcf, fname, &pcfbuflimit);
  429.           /* Don't need it any more.  */
  430.           close (pcf);
  431. --- 4294,4352 ----
  432.   
  433.       if (!no_precomp)
  434.         do {
  435. + #ifdef atarist
  436. +     int numlen;
  437. +     char *dot;
  438. +     char *slash;
  439. + 
  440. +     /* cut extension to 3 chars and dont depend on UNIXMODE           */
  441. +     /* this will have to be done when saving precompiled headers, too */
  442. +     /* but as far as I tried, they dont work up to now, anyway   (AL) */
  443. + 
  444. +       if( pcfnum>=100 )     numlen=3;
  445. +       else if( pcfnum>=10 ) numlen=2;
  446. +       else                  numlen=1;
  447. + 
  448. +       dot=strrchr( fname, '.' );
  449. +       if( (slash=strrchr( fname, '/')) && slash>dot )
  450. +         dot=NULL;
  451. +       else
  452. +       if( (slash=strrchr( fname, '\\')) && slash>dot )
  453. +         dot=NULL;
  454. + 
  455. +       if( dot ) {
  456. +         if( strlen(dot)-1>3-numlen ) {
  457. +           sprintf(pcftry, "%.*s%d", strlen(fname)-(strlen(dot)-(4-numlen)),
  458. +                   fname, pcfnum++);
  459. +         } else {
  460. +           sprintf(pcftry, "%s%d", fname, pcfnum++);
  461. +         }
  462. +       } else {
  463. +         sprintf( pcftry, "%s.%d", fname, pcfnum++);
  464. +       }
  465. + #else    /* looks like we got a sane filesystem */
  466.       sprintf (pcftry, "%s%d", fname, pcfnum++);
  467. + #endif
  468. + #if 0
  469. +     fprintf ( stderr, "trying precompiled file %s.\n", pcftry );
  470. + #endif
  471.       
  472.       pcf = open (pcftry, O_RDONLY, 0666);
  473.       if (pcf != -1)
  474.         {
  475. + #ifndef atarist
  476. +         /* dont bother with this on the ST since these field are faked
  477. +          * anyways
  478. +              */
  479.           struct stat s;
  480.   
  481.           fstat (pcf, &s);
  482.           if (bcmp (&stat_f.st_ino, &s.st_ino, sizeof (s.st_ino))
  483.           || stat_f.st_dev != s.st_dev)
  484. ! #else
  485. !         if (1)
  486. ! #endif
  487. !               {
  488.           pcfbuf = check_precompiled (pcf, fname, &pcfbuflimit);
  489.           /* Don't need it any more.  */
  490.           close (pcf);
  491. ***************
  492. *** 7130,7137 ****
  493. --- 7321,7332 ----
  494.     check_expand (op, len + 1);
  495.     if (op->bufp > op->buf && op->bufp[-1] != '\n')
  496.       *op->bufp++ = '\n';
  497. + #ifdef atarist
  498. +   op->bufp = slashifying_bcopy (line_cmd_buf, op->bufp, len);
  499. + #else
  500.     bcopy (line_cmd_buf, op->bufp, len);
  501.     op->bufp += len;
  502. + #endif
  503.     op->lineno = ip->lineno;
  504.   }
  505.   
  506. ***************
  507. *** 8879,8884 ****
  508. --- 9074,9080 ----
  509.     deps_buffer[deps_size] = 0;
  510.   }
  511.   
  512. + #if (!(defined(atarist) || defined(atariminix)))
  513.   #if defined(USG) || defined(VMS)
  514.   #ifndef BSTRING
  515.   
  516. ***************
  517. *** 8915,8921 ****
  518.   }
  519.   #endif /* not BSTRING */
  520.   #endif /* USG or VMS */
  521. ! 
  522.   
  523.   static void
  524.   fatal (str, arg)
  525. --- 9111,9117 ----
  526.   }
  527.   #endif /* not BSTRING */
  528.   #endif /* USG or VMS */
  529. ! #endif /* any atari */
  530.   
  531.   static void
  532.   fatal (str, arg)
  533. diff -rc gcc-2.5.0/config/m68k/m68k.c /net/acae127/home/bammi/usr2/gcc/config/m68k/m68k.c
  534. *** gcc-2.5.0/config/m68k/m68k.c    Thu Oct 21 00:26:37 1993
  535. --- /net/acae127/home/bammi/usr2/gcc/config/m68k/m68k.c    Tue Oct 26 08:23:15 1993
  536. ***************
  537. *** 61,67 ****
  538.   void
  539.   finalize_pic ()
  540.   {
  541. !   if (flag_pic && current_function_uses_pic_offset_table)
  542.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  543.   }
  544.   
  545. --- 61,67 ----
  546.   void
  547.   finalize_pic ()
  548.   {
  549. !   if (flag_pic && flag_pic < 3 && current_function_uses_pic_offset_table)
  550.       emit_insn (gen_rtx (USE, VOIDmode, pic_offset_table_rtx));
  551.   }
  552.   
  553. ***************
  554. *** 214,220 ****
  555.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  556.   #endif
  557.       }
  558. !   if (flag_pic && current_function_uses_pic_offset_table)
  559.       {
  560.   #ifdef MOTOROLA
  561.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  562. --- 214,220 ----
  563.         asm_fprintf (stream, "\tmoveml %0I0x%x,%Rsp@-\n", mask);
  564.   #endif
  565.       }
  566. !   if (flag_pic && flag_pic < 3 && current_function_uses_pic_offset_table)
  567.       {
  568.   #ifdef MOTOROLA
  569.         asm_fprintf (stream, "\t%Olea (%Rpc, %U_GLOBAL_OFFSET_TABLE_@GOTPC), %s\n",
  570. ***************
  571. *** 801,812 ****
  572.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  573.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  574.       {
  575.         if (reg == 0)
  576.       abort ();
  577.   
  578. !       pic_ref = gen_rtx (MEM, Pmode,
  579. !              gen_rtx (PLUS, Pmode,
  580. !                   pic_offset_table_rtx, orig));
  581.         current_function_uses_pic_offset_table = 1;
  582.         RTX_UNCHANGING_P (pic_ref) = 1;
  583.         emit_move_insn (reg, pic_ref);
  584. --- 801,820 ----
  585.     /* First handle a simple SYMBOL_REF or LABEL_REF */
  586.     if (GET_CODE (orig) == SYMBOL_REF || GET_CODE (orig) == LABEL_REF)
  587.       {
  588. + #ifdef LEGITIMATE_BASEREL_OPERAND_P
  589. +       if (LEGITIMATE_BASEREL_OPERAND_P (orig))
  590. +     return orig;
  591. + #endif
  592. + 
  593.         if (reg == 0)
  594.       abort ();
  595.   
  596. !       if (flag_pic == 3)
  597. !         pic_ref = gen_rtx (PLUS, Pmode, pic_offset_table_rtx, orig);
  598. !       else
  599. !         pic_ref = gen_rtx (MEM, Pmode,
  600. !                gen_rtx (PLUS, Pmode,
  601. !                     pic_offset_table_rtx, orig));
  602.         current_function_uses_pic_offset_table = 1;
  603.         RTX_UNCHANGING_P (pic_ref) = 1;
  604.         emit_move_insn (reg, pic_ref);
  605. ***************
  606. *** 1851,1856 ****
  607. --- 1859,1867 ----
  608.         output_address (XEXP (op, 0));
  609.         if (letter == 'd' && ! TARGET_68020
  610.         && CONSTANT_ADDRESS_P (XEXP (op, 0))
  611. +       && !(TARGET_PC_REL && GET_CODE (XEXP (op, 0)) == SYMBOL_REF
  612. +            && SYMBOL_REF_FLAG (XEXP (op, 0))
  613. +            && !SYMBOL_REF_USED (XEXP (op, 0)))
  614.         && !(GET_CODE (XEXP (op, 0)) == CONST_INT
  615.              && INTVAL (XEXP (op, 0)) < 0x8000
  616.              && INTVAL (XEXP (op, 0)) >= -0x8000))
  617. ***************
  618. *** 2158,2163 ****
  619. --- 2169,2176 ----
  620.                 fprintf (file, ":w");
  621.               if ((flag_pic == 2) && (breg == pic_offset_table_rtx))
  622.                 fprintf (file, ":l");
  623. +             if ((flag_pic == 3) && (breg == pic_offset_table_rtx))
  624. +               fprintf (file, ":w");
  625.             }
  626.           if (addr != 0 && ireg != 0)
  627.             {
  628. ***************
  629. *** 2235,2240 ****
  630. --- 2248,2265 ----
  631.           fprintf (file, "%d:w", INTVAL (addr));
  632.   #endif
  633.         }
  634. +     else if (TARGET_PC_REL && GET_CODE (addr) == SYMBOL_REF
  635. +          && SYMBOL_REF_FLAG (addr) && !SYMBOL_REF_USED (addr))
  636. +       {
  637. + #ifdef MOTOROLA
  638. +         output_addr_const (file, addr);
  639. +         fputs ("(pc)", file);
  640. + #else
  641. +         fputs ("pc@(", file);
  642. +         output_addr_const (file, addr);
  643. +         putc (')', file);
  644. + #endif
  645. +       }
  646.       else
  647.         {
  648.           output_addr_const (file, addr);
  649. ***************
  650. *** 2301,2303 ****
  651. --- 2326,2344 ----
  652.   
  653.     return 0;
  654.   }
  655. + 
  656. + #ifdef ENCODE_SECTION_INFO
  657. + /* Does operand (which is a symbolic_operand) live in text space? If
  658. +    so SYMBOL_REF_FLAG, which is set by ENCODE_SECTION_INFO, will be true.*/
  659. + 
  660. + int
  661. + read_only_operand (operand)
  662. +      rtx operand;
  663. + {
  664. +   if (GET_CODE (operand) == CONST)
  665. +     operand = XEXP (XEXP (operand, 0), 0);
  666. +   if (GET_CODE (operand) == SYMBOL_REF)
  667. +     return SYMBOL_REF_FLAG (operand) || CONSTANT_POOL_ADDRESS_P (operand);
  668. +   return 1;
  669. + }
  670. + #endif
  671. diff -rc gcc-2.5.0/config/m68k/m68k.h /net/acae127/home/bammi/usr2/gcc/config/m68k/m68k.h
  672. *** gcc-2.5.0/config/m68k/m68k.h    Tue Sep 21 22:40:16 1993
  673. --- /net/acae127/home/bammi/usr2/gcc/config/m68k/m68k.h    Tue Oct 26 08:23:16 1993
  674. ***************
  675. *** 92,97 ****
  676. --- 92,103 ----
  677.   /* Use the 68040-only fp instructions (-m68040).  */
  678.   #define TARGET_68040_ONLY (target_flags & 01000)
  679.   
  680. + /* Use PC-relative addressing for refs to read-only data */
  681. + #define TARGET_PC_REL (target_flags & 02000)
  682. + 
  683. + /* Use base-relative addressing for refs to data&bss segments */
  684. + #define TARGET_BASE_REL (target_flags & 04000)
  685. + 
  686.   /* Macro to define tables used to set the flags.
  687.      This is a list in braces of pairs in braces,
  688.      each pair being { "NAME", VALUE }
  689. ***************
  690. *** 121,126 ****
  691. --- 127,136 ----
  692.       { "68030", -01400},                \
  693.       { "68030", 5},                \
  694.       { "68040", 01007},                \
  695. +     { "pcrel", 02000},                \
  696. +     { "nopcrel", -02000},            \
  697. +     { "baserel", 04000},            \
  698. +     { "nobaserel", -04000},            \
  699.       { "68851", 0},    /* Affects *_SPEC and/or GAS.  */    \
  700.       { "no-68851", 0},    /* Affects *_SPEC and/or GAS.  */    \
  701.       { "68302", 0},    /* Affects *_SPEC and/or GAS.  */    \
  702. ***************
  703. *** 143,154 ****
  704. --- 153,166 ----
  705.     if (! TARGET_68020 && flag_pic == 2)    \
  706.       error("-fPIC is not currently supported on the 68000 or 68010\n");    \
  707.     SUBTARGET_OVERRIDE_OPTIONS        \
  708. +   if (TARGET_BASE_REL) flag_pic = 3;    \
  709.   }
  710.   #else
  711.   #define OVERRIDE_OPTIONS        \
  712.   {                    \
  713.     if (! TARGET_68020 && flag_pic == 2)    \
  714.       error("-fPIC is not currently supported on the 68000 or 68010\n");    \
  715. +   if (TARGET_BASE_REL) flag_pic = 3;    \
  716.     SUBTARGET_OVERRIDE_OPTIONS        \
  717.   }
  718.   #endif /* defined SUPPORT_SUN_FPA */
  719. ***************
  720. *** 356,361 ****
  721. --- 368,376 ----
  722.   {                                               \
  723.     if (flag_pic)                                 \
  724.       fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  725. +   /* prevent saving/restoring of the base reg */ \
  726. +   if (flag_pic == 3)                 \
  727. +     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  728.   }
  729.   
  730.   #else /* defined SUPPORT_SUN_FPA */
  731. ***************
  732. *** 380,385 ****
  733. --- 395,403 ----
  734.       }                         \
  735.     if (flag_pic)                                 \
  736.       fixed_regs[PIC_OFFSET_TABLE_REGNUM] = 1;    \
  737. +   /* prevent saving/restoring of the base reg */ \
  738. +   if (flag_pic == 3)                 \
  739. +     call_used_regs[PIC_OFFSET_TABLE_REGNUM] = 1; \
  740.   }
  741.   
  742.   #endif /* defined SUPPORT_SUN_FPA */
  743. ***************
  744. *** 1154,1159 ****
  745. --- 1172,1179 ----
  746.          && LEGITIMATE_BASE_REG_P (XEXP (X, 0))                \
  747.          && GET_CODE (XEXP (X, 1)) == CONST_INT                \
  748.          && ((unsigned) INTVAL (XEXP (X, 1)) + 0x8000) < 0x10000)        \
  749. +    || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  750. +        && flag_pic == 3 && CONSTANT_ADDRESS_P (XEXP (X, 1)))        \
  751.      || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  752.          && flag_pic && GET_CODE (XEXP (X, 1)) == SYMBOL_REF)        \
  753.      || (GET_CODE (X) == PLUS && XEXP (X, 0) == pic_offset_table_rtx     \
  754. diff -rc gcc-2.5.0/config/m68k/m68k.md /net/acae127/home/bammi/usr2/gcc/config/m68k/m68k.md
  755. *** gcc-2.5.0/config/m68k/m68k.md    Wed Oct 20 23:59:47 1993
  756. --- /net/acae127/home/bammi/usr2/gcc/config/m68k/m68k.md    Tue Oct 26 08:23:18 1993
  757. ***************
  758. *** 704,716 ****
  759.   {
  760.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  761.       {
  762. !       /* The source is an address which requires PIC relocation.  
  763. !          Call legitimize_pic_address with the source, mode, and a relocation
  764. !          register (a new pseudo, or the final destination if reload_in_progress
  765. !          is set).   Then fall through normally */
  766. !       extern rtx legitimize_pic_address();
  767. !       rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  768. !       operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  769.       }
  770.   }")
  771.   
  772. --- 704,721 ----
  773.   {
  774.     if (flag_pic && symbolic_operand (operands[1], SImode)) 
  775.       {
  776. ! #ifdef LEGITIMATE_BASEREL_OPERAND_P
  777. !       if (flag_pic != 3 || !LEGITIMATE_BASEREL_OPERAND_P (operands[1]))
  778. ! #endif
  779. !       {
  780. !         /* The source is an address which requires PIC relocation.  
  781. !            Call legitimize_pic_address with the source, mode, and a relocation
  782. !            register (a new pseudo, or the final destination if reload_in_progress
  783. !            is set).   Then fall through normally */
  784. !         extern rtx legitimize_pic_address();
  785. !         rtx temp = reload_in_progress ? operands[0] : gen_reg_rtx (Pmode);
  786. !         operands[1] = legitimize_pic_address (operands[1], SImode, temp);
  787. !       }
  788.       }
  789.   }")
  790.   
  791. ***************
  792. *** 4823,4829 ****
  793.     ""
  794.     "
  795.   {
  796. !   if (flag_pic && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  797.   #ifdef MOTOROLA
  798.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  799.   #else
  800. --- 4828,4834 ----
  801.     ""
  802.     "
  803.   {
  804. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[0], 0)) == SYMBOL_REF)
  805.   #ifdef MOTOROLA
  806.       SYMBOL_REF_FLAG (XEXP (operands[0], 0)) = 1;
  807.   #else
  808. ***************
  809. *** 4838,4844 ****
  810.        (match_operand:SI 1 "general_operand" "g"))]
  811.     ;; Operand 1 not really used on the m68000.
  812.   
  813. !   "! flag_pic"
  814.     "*
  815.   #ifdef MOTOROLA
  816.     return \"jsr %0\";
  817. --- 4843,4849 ----
  818.        (match_operand:SI 1 "general_operand" "g"))]
  819.     ;; Operand 1 not really used on the m68000.
  820.   
  821. !   "(! flag_pic || flag_pic == 3)"
  822.     "*
  823.   #ifdef MOTOROLA
  824.     return \"jsr %0\";
  825. ***************
  826. *** 4853,4859 ****
  827.        (match_operand:SI 1 "general_operand" "g"))]
  828.     ;; Operand 1 not really used on the m68000.
  829.   
  830. !   "flag_pic"
  831.     "*
  832.   #ifdef HPUX_ASM
  833.     return \"bsr %0\";
  834. --- 4858,4864 ----
  835.        (match_operand:SI 1 "general_operand" "g"))]
  836.     ;; Operand 1 not really used on the m68000.
  837.   
  838. !   "(flag_pic && flag_pic < 3)"
  839.     "*
  840.   #ifdef HPUX_ASM
  841.     return \"bsr %0\";
  842. ***************
  843. *** 4878,4884 ****
  844.     ""
  845.     "
  846.   {
  847. !   if (flag_pic && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  848.   #ifdef MOTOROLA
  849.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  850.   #else
  851. --- 4883,4889 ----
  852.     ""
  853.     "
  854.   {
  855. !   if (flag_pic && flag_pic < 3 && GET_CODE (XEXP (operands[1], 0)) == SYMBOL_REF)
  856.   #ifdef MOTOROLA
  857.       SYMBOL_REF_FLAG (XEXP (operands[1], 0)) = 1;
  858.   #else
  859. ***************
  860. *** 4893,4899 ****
  861.       (call (match_operand:QI 1 "memory_operand" "o")
  862.             (match_operand:SI 2 "general_operand" "g")))]
  863.     ;; Operand 2 not really used on the m68000.
  864. !   "! flag_pic"
  865.     "*
  866.   #ifdef MOTOROLA
  867.     return \"jsr %1\";
  868. --- 4898,4904 ----
  869.       (call (match_operand:QI 1 "memory_operand" "o")
  870.             (match_operand:SI 2 "general_operand" "g")))]
  871.     ;; Operand 2 not really used on the m68000.
  872. !   "(! flag_pic || flag_pic == 3)"
  873.     "*
  874.   #ifdef MOTOROLA
  875.     return \"jsr %1\";
  876. ***************
  877. *** 4908,4914 ****
  878.       (call (match_operand:QI 1 "memory_operand" "o")
  879.             (match_operand:SI 2 "general_operand" "g")))]
  880.     ;; Operand 2 not really used on the m68000.
  881. !   "flag_pic"
  882.     "*
  883.   #ifdef HPUX_ASM
  884.     return \"bsr %1\";
  885. --- 4913,4919 ----
  886.       (call (match_operand:QI 1 "memory_operand" "o")
  887.             (match_operand:SI 2 "general_operand" "g")))]
  888.     ;; Operand 2 not really used on the m68000.
  889. !   "(flag_pic && flag_pic < 3)"
  890.     "*
  891.   #ifdef HPUX_ASM
  892.     return \"bsr %1\";
  893. diff -rc gcc-2.5.0/cp-lex.c /net/acae127/home/bammi/usr2/gcc/cp-lex.c
  894. *** gcc-2.5.0/cp-lex.c    Fri Oct  8 15:01:12 1993
  895. --- /net/acae127/home/bammi/usr2/gcc/cp-lex.c    Tue Oct 26 08:25:12 1993
  896. ***************
  897. *** 1744,1750 ****
  898.     {
  899.       struct pending_inline *t;
  900.   
  901. !     t = (struct pending_inline *) obstack_alloc (&inline_text_obstack,
  902.                            sizeof (struct pending_inline));
  903.       t->lineno = lineno;
  904.       t->filename = input_filename;
  905. --- 1744,1750 ----
  906.     {
  907.       struct pending_inline *t;
  908.   
  909. !     t = (struct pending_inline *) obstack_alloc (&permanent_obstack,
  910.                            sizeof (struct pending_inline));
  911.       t->lineno = lineno;
  912.       t->filename = input_filename;
  913. diff -rc gcc-2.5.0/cp-tree.c /net/acae127/home/bammi/usr2/gcc/cp-tree.c
  914. *** gcc-2.5.0/cp-tree.c    Fri Oct  8 15:02:05 1993
  915. --- /net/acae127/home/bammi/usr2/gcc/cp-tree.c    Tue Oct 26 08:25:22 1993
  916. ***************
  917. *** 1660,1665 ****
  918. --- 1660,1666 ----
  919.     print_class_statistics ();
  920.   }
  921.   
  922. + #ifndef atarist
  923.   /* This is used by the `assert' macro.  It is provided in libgcc.a,
  924.      which `cc' doesn't know how to link.  Note that the C++ front-end
  925.      no longer actually uses the `assert' macro (instead, it calls
  926. ***************
  927. *** 1682,1687 ****
  928. --- 1683,1689 ----
  929.     fflush (stderr);
  930.     abort ();
  931.   }
  932. + #endif
  933.   
  934.   /* Return, as an INTEGER_CST node, the number of elements for
  935.      TYPE (which is an ARRAY_TYPE).  This counts only elements of the top array. */
  936. diff -rc gcc-2.5.0/gcc.c /net/acae127/home/bammi/usr2/gcc/gcc.c
  937. *** gcc-2.5.0/gcc.c    Wed Oct 20 19:12:52 1993
  938. --- /net/acae127/home/bammi/usr2/gcc/gcc.c    Tue Oct 26 19:32:43 1993
  939. ***************
  940. *** 30,35 ****
  941. --- 30,44 ----
  942.   Once it knows which kind of compilation to perform, the procedure for
  943.   compilation is specified by a string called a "spec".  */
  944.   
  945. + #ifdef CROSSATARI
  946. + #ifdef atarist
  947. + #undef atarist
  948. + #endif
  949. + #ifdef atariminix
  950. + #undef atariminix
  951. + #endif
  952. + #endif
  953. +   
  954.   #include <sys/types.h>
  955.   #include <ctype.h>
  956.   #include <signal.h>
  957. ***************
  958. *** 40,45 ****
  959. --- 49,56 ----
  960.   #include "obstack.h"
  961.   #include "gvarargs.h"
  962.   #include <stdio.h>
  963. + #include <string.h>
  964. +     /* if your supplier still does'nt have string.h, shoot him.. */
  965.   
  966.   #ifndef R_OK
  967.   #define R_OK 4
  968. ***************
  969. *** 65,71 ****
  970.   #define NULL_PTR ((GENERIC_PTR)0)
  971.   #endif
  972.   
  973. ! #ifdef USG
  974.   #define vfork fork
  975.   #endif /* USG */
  976.   
  977. --- 76,82 ----
  978.   #define NULL_PTR ((GENERIC_PTR)0)
  979.   #endif
  980.   
  981. ! #if (defined(USG) || defined(atariminix))
  982.   #define vfork fork
  983.   #endif /* USG */
  984.   
  985. ***************
  986. *** 97,102 ****
  987. --- 108,124 ----
  988.   #define PATH_SEPARATOR ':'
  989.   #endif
  990.   
  991. + #ifdef CROSSATARI
  992. + #include <ctype.h>
  993. + #endif
  994. + 
  995. + #ifdef atarist
  996. + #include <osbind.h>
  997. + #include <ctype.h>
  998. + #include <fcntl.h>        /* fgth, for redirection of stderr */
  999. + long _stksize = 8192;
  1000. + #endif
  1001. + 
  1002.   #define obstack_chunk_alloc xmalloc
  1003.   #define obstack_chunk_free free
  1004.   
  1005. ***************
  1006. *** 161,167 ****
  1007. --- 183,191 ----
  1008.      pass the compiler in building the list of pointers to constructors
  1009.      and destructors.  */
  1010.   
  1011. + #if (!(defined(CROSSATARI) || defined(atarist)))
  1012.   static struct obstack collect_obstack;
  1013. + #endif
  1014.   
  1015.   extern char *version_string;
  1016.   
  1017. ***************
  1018. *** 457,463 ****
  1019.              %{aux-info*}\
  1020.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1021.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1022. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1023.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1024.                         %{!pipe:%g.s} %A\n }}}}"},
  1025.     {"-",
  1026. --- 481,487 ----
  1027.              %{aux-info*}\
  1028.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1029.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1030. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1031.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1032.                         %{!pipe:%g.s} %A\n }}}}"},
  1033.     {"-",
  1034. ***************
  1035. *** 490,496 ****
  1036.              %{aux-info*}\
  1037.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1038.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1039. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1040.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1041.                         %{!pipe:%g.s} %A\n }}}}"},
  1042.     {".h", "@c-header"},
  1043. --- 514,520 ----
  1044.              %{aux-info*}\
  1045.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1046.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1047. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1048.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1049.                         %{!pipe:%g.s} %A\n }}}}"},
  1050.     {".h", "@c-header"},
  1051. ***************
  1052. *** 525,531 ****
  1053.              %{aux-info*}\
  1054.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1055.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1056. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1057.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1058.                         %{!pipe:%g.s} %A\n }}}}"},
  1059.     {".i", "@cpp-output"},
  1060. --- 549,555 ----
  1061.              %{aux-info*}\
  1062.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1063.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1064. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1065.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1066.                         %{!pipe:%g.s} %A\n }}}}"},
  1067.     {".i", "@cpp-output"},
  1068. ***************
  1069. *** 536,542 ****
  1070.       %{aux-info*}\
  1071.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1072.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1073. !     %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1074.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %{!pipe:%g.s} %A\n }"},
  1075.     {".ii", "@c++-cpp-output"},
  1076.     {"@c++-cpp-output",
  1077. --- 560,566 ----
  1078.       %{aux-info*}\
  1079.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1080.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1081. !     %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1082.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %{!pipe:%g.s} %A\n }"},
  1083.     {".ii", "@c++-cpp-output"},
  1084.     {"@c++-cpp-output",
  1085. ***************
  1086. *** 546,559 ****
  1087.           %{aux-info*}\
  1088.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1089.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1090. !        %{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1091.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1092.              %{!pipe:%g.s} %A\n }"},
  1093.     {".s", "@assembler"},
  1094.     {"@assembler",
  1095. !    "%{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1096.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %i %A\n }"},
  1097.     {".S", "@assembler-with-cpp"},
  1098.     {"@assembler-with-cpp",
  1099.      "cpp -lang-asm %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
  1100.       %{C:%{!E:%eGNU C does not support -C without using -E}}\
  1101. --- 570,586 ----
  1102.           %{aux-info*}\
  1103.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  1104.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  1105. !        %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1106.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1107.              %{!pipe:%g.s} %A\n }"},
  1108.     {".s", "@assembler"},
  1109.     {"@assembler",
  1110. !    "%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1111.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o} %i %A\n }"},
  1112.     {".S", "@assembler-with-cpp"},
  1113. +   {".ss", "@assembler-with-cpp"},
  1114. +   {".cpp", "@assembler-with-cpp"},
  1115. +   {".spp", "@assembler-with-cpp"},
  1116.     {"@assembler-with-cpp",
  1117.      "cpp -lang-asm %{nostdinc*} %{C} %{v} %{A*} %{I*} %{P} %I\
  1118.       %{C:%{!E:%eGNU C does not support -C without using -E}}\
  1119. ***************
  1120. *** 563,569 ****
  1121.           %{traditional-cpp:-traditional}\
  1122.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C %{D*} %{U*} %{i*}\
  1123.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n",
  1124. !    "%{!M:%{!MM:%{!E:%{!S:as %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1125.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1126.               %{!pipe:%g.s} %A\n }}}}"},
  1127.     {".ads", "@ada"},
  1128. --- 590,596 ----
  1129.           %{traditional-cpp:-traditional}\
  1130.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C %{D*} %{U*} %{i*}\
  1131.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n",
  1132. !    "%{!M:%{!MM:%{!E:%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a %Y\
  1133.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%u.o}\
  1134.               %{!pipe:%g.s} %A\n }}}}"},
  1135.     {".ads", "@ada"},
  1136. ***************
  1137. *** 589,594 ****
  1138. --- 616,630 ----
  1139.   
  1140.   /* Here is the spec for running the linker, after compiling all files.  */
  1141.   
  1142. + #if (defined(CROSSATARI) || defined(atarist) || defined(atariminix))
  1143. + static char *link_command_spec = 
  1144. +  "%{!fsyntax-only: \
  1145. +     %{!c:%{!M*:%{!E:%{!S:ld %X %{v} %{G} %{o*} %l\
  1146. +       %{A} %{d} %{e*} %{N} %{n} %{r} %{s} %{S} %{T*} %{t} %{u*} %{X} %{x} %{z}\
  1147. +       %{y*} %{!nostdlib:%S} \
  1148. +       %{L*} %o %{!nostdlib:%s %L}\n }}}}}";
  1149. + 
  1150. + #else
  1151.   /* -u* was put back because both BSD and SysV seem to support it.  */
  1152.   /* %{static:} simply prevents an error message if the target machine
  1153.      doesn't handle -static.  */
  1154. ***************
  1155. *** 622,627 ****
  1156. --- 658,664 ----
  1157.               %{L*} %D %{T*} %o %{!nostdlib:-lgcc %L -lgcc %{!A:%E}}\n }}}}}}";
  1158.   #endif
  1159.   #endif
  1160. + #endif
  1161.   
  1162.   /* A vector of options to give to the linker.
  1163.      These options are accumulated by -Xlinker and -Wl,
  1164. ***************
  1165. *** 849,854 ****
  1166. --- 886,892 ----
  1167.     *argcp = newindex;
  1168.   }
  1169.   
  1170. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  1171.   /* Read compilation specs from a file named FILENAME,
  1172.      replacing the default ones.
  1173.   
  1174. ***************
  1175. *** 988,993 ****
  1176. --- 1026,1032 ----
  1177.   
  1178.     return p;
  1179.   }
  1180. + #endif /* ataris */
  1181.   
  1182.   /* Structure to keep track of the specs that have been defined so far.  These
  1183.      are accessed using %(specname) or %[specname] in a compiler or link spec. */
  1184. ***************
  1185. *** 1104,1109 ****
  1186. --- 1143,1155 ----
  1187.   /* Name with which this program was invoked.  */
  1188.   
  1189.   static char *programname;
  1190. + 
  1191. + #ifdef atarist
  1192. + /* Flag indicating, that stderr should be redirected for the child
  1193. +    processes */
  1194. + 
  1195. + unsigned char zflag;
  1196. + #endif
  1197.   
  1198.   /* Structures to keep track of prefixes to try when looking for files. */
  1199.   
  1200. ***************
  1201. *** 1397,1406 ****
  1202.     if (base == (char *)0)
  1203.       base = "./";
  1204.   
  1205.     len = strlen (base);
  1206.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX") + 1);
  1207.     strcpy (temp_filename, base);
  1208. !   if (len > 0 && temp_filename[len-1] != '/')
  1209.       temp_filename[len++] = '/';
  1210.     strcpy (temp_filename + len, "ccXXXXXX");
  1211.   
  1212. --- 1443,1463 ----
  1213.     if (base == (char *)0)
  1214.       base = "./";
  1215.   
  1216. + #ifdef atarist
  1217. +   {
  1218. +       char *newbase = alloca(FILENAME_MAX);
  1219. +       dos2unx(base,newbase);
  1220. +       base = newbase;
  1221. +   }
  1222. + #endif
  1223.     len = strlen (base);
  1224.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX") + 1);
  1225.     strcpy (temp_filename, base);
  1226. !   if (len > 0 && (temp_filename[len-1] != '/' 
  1227. ! #ifdef atarist
  1228. !           || temp_filename[len-1] != '\\'
  1229. ! #endif
  1230. !            ))
  1231.       temp_filename[len++] = '/';
  1232.     strcpy (temp_filename + len, "ccXXXXXX");
  1233.   
  1234. ***************
  1235. *** 1419,1424 ****
  1236. --- 1476,1482 ----
  1237.      use come from an obstack, we don't have to worry about allocating
  1238.      space for them.  */
  1239.   
  1240. + #if (!(defined(CROSSATARI) || defined(atarist)))
  1241.   #ifndef HAVE_PUTENV
  1242.   
  1243.   void
  1244. ***************
  1245. *** 1520,1525 ****
  1246. --- 1578,1584 ----
  1247.     obstack_1grow (&collect_obstack, '\0');
  1248.     putenv (obstack_finish (&collect_obstack));
  1249.   }
  1250. + #endif /* ataris */
  1251.   
  1252.   
  1253.   /* Search for NAME using the prefix list PREFIXES.  MODE is passed to
  1254. ***************
  1255. *** 1804,1809 ****
  1256. --- 1863,1869 ----
  1257.   
  1258.   #else /* not __MSDOS__ */
  1259.   
  1260. + #ifndef atarist
  1261.   static int
  1262.   pexecute (search_flag, program, argv, not_last)
  1263.        int search_flag;
  1264. ***************
  1265. *** 1892,1897 ****
  1266. --- 1952,1958 ----
  1267.       }
  1268.   }
  1269.   
  1270. + #endif /* not atarist */
  1271.   #endif /* not __MSDOS__ */
  1272.   #else /* not OS2 */
  1273.   
  1274. ***************
  1275. *** 1922,1937 ****
  1276.       {
  1277.         char *prog;        /* program name.  */
  1278.         char **argv;        /* vector of args.  */
  1279.         int pid;            /* pid of process for this command.  */
  1280.       };
  1281.   
  1282.     struct command *commands;    /* each command buffer with above info.  */
  1283.   
  1284.     /* Count # of piped commands.  */
  1285.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1286.       if (strcmp (argbuf[i], "|") == 0)
  1287.         n_commands++;
  1288. ! 
  1289.     /* Get storage for each command.  */
  1290.     commands
  1291.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1292. --- 1983,2003 ----
  1293.       {
  1294.         char *prog;        /* program name.  */
  1295.         char **argv;        /* vector of args.  */
  1296. + #ifndef atarist
  1297.         int pid;            /* pid of process for this command.  */
  1298. + #endif
  1299.       };
  1300.   
  1301.     struct command *commands;    /* each command buffer with above info.  */
  1302.   
  1303. + #ifndef atarist
  1304.     /* Count # of piped commands.  */
  1305.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1306.       if (strcmp (argbuf[i], "|") == 0)
  1307.         n_commands++;
  1308. ! #else
  1309. !   n_commands = 1;
  1310. ! #endif
  1311.     /* Get storage for each command.  */
  1312.     commands
  1313.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1314. ***************
  1315. *** 1946,1951 ****
  1316. --- 2012,2018 ----
  1317.     if (string)
  1318.       commands[0].argv[0] = string;
  1319.   
  1320. + #ifndef atarist
  1321.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1322.       if (strcmp (argbuf[i], "|") == 0)
  1323.         {                /* each command.  */
  1324. ***************
  1325. *** 1960,1965 ****
  1326. --- 2027,2035 ----
  1327.         commands[n_commands].argv[0] = string;
  1328.       n_commands++;
  1329.         }
  1330. + #else
  1331. +   n_commands = 1;
  1332. + #endif
  1333.   
  1334.     argbuf[argbuf_index] = 0;
  1335.   
  1336. ***************
  1337. *** 1975,1983 ****
  1338. --- 2045,2055 ----
  1339.         for (j = commands[i].argv; *j; j++)
  1340.           fprintf (stderr, " %s", *j);
  1341.   
  1342. + #ifndef atarist
  1343.         /* Print a pipe symbol after all but the last command.  */
  1344.         if (i + 1 != n_commands)
  1345.           fprintf (stderr, " |");
  1346. + #endif
  1347.         fprintf (stderr, "\n");
  1348.       }
  1349.         fflush (stderr);
  1350. ***************
  1351. *** 1992,2008 ****
  1352. --- 2064,2090 ----
  1353.   #endif /* DEBUG */
  1354.       }
  1355.   
  1356. + #ifndef atarist
  1357.     /* Run each piped subprocess.  */
  1358.   
  1359.     last_pipe_input = STDIN_FILE_NO;
  1360.     for (i = 0; i < n_commands; i++)
  1361.       {
  1362. + #ifndef atariminix
  1363.         char *string = commands[i].argv[0];
  1364.   
  1365.         commands[i].pid = pexecute (string != commands[i].prog,
  1366.                     string, commands[i].argv,
  1367.                     i + 1 < n_commands);
  1368.   
  1369. + #else
  1370. +       extern int execv();
  1371. +       char *string = commands[i].argv[0];
  1372. + 
  1373. +       commands[i].pid = pexecute (execv,
  1374. +                   string, commands[i].argv,
  1375. +                   i + 1 < n_commands);
  1376. + #endif
  1377.         if (string != commands[i].prog)
  1378.       free (string);
  1379.       }
  1380. ***************
  1381. *** 2049,2054 ****
  1382. --- 2131,2181 ----
  1383.         }
  1384.       return ret_code;
  1385.     }
  1386. + #else /* atarist */
  1387. +  {
  1388. +      register int iii;
  1389. +      int errfd, oldfd;
  1390. +      char **j;
  1391. + 
  1392. +      execution_count++;
  1393. + 
  1394. +      if (zflag)
  1395. +        {
  1396. +      errfd = Fopen("compile.err", 2);
  1397. +      if (errfd < __SMALLEST_VALID_HANDLE)
  1398. +        errfd = Fcreate("compile.err", 0);
  1399. +      else
  1400. +        Fseek(0L, errfd, 2);
  1401. +      if (errfd >= __SMALLEST_VALID_HANDLE)
  1402. +        {
  1403. +          oldfd = Fdup (2);
  1404. +          Fforce(2, errfd);
  1405. +        }
  1406. +      else
  1407. +        {
  1408. +          error("cannot open %s", "compile.err");
  1409. +          zflag = 0;        /* no redirection */
  1410. +        }
  1411. +        }
  1412. +      for (i = 0; i < n_commands ; i++)
  1413. +      {
  1414. +          j = commands[i].argv;
  1415. +          iii = spawnve(0, j[0], j, NULL);
  1416. +      if(iii != 0)
  1417. +          break;
  1418. +      }
  1419. +      if (zflag)
  1420. +        {
  1421. +      Fforce(2, oldfd);
  1422. +      Fclose(oldfd);
  1423. +      Fclose(errfd);
  1424. +        }
  1425. +      if (iii != 0)
  1426. +        return -1;
  1427. +      else
  1428. +        return 0;
  1429. +  }
  1430. + #endif /* atarist */  
  1431.   }
  1432.   
  1433.   /* Find all the switches given to us
  1434. ***************
  1435. *** 2112,2117 ****
  1436. --- 2239,2245 ----
  1437.   
  1438.     /* Set up the default search paths.  */
  1439.   
  1440. + #ifndef CROSSATARI
  1441.     if (gcc_exec_prefix)
  1442.       {
  1443.         add_prefix (&exec_prefix, gcc_exec_prefix, 0, 0, NULL_PTR);
  1444. ***************
  1445. *** 2186,2191 ****
  1446. --- 2314,2320 ----
  1447.           endp++;
  1448.       }
  1449.       }
  1450. + #endif /* CROSSATARI */
  1451.   
  1452.     /* Use LPATH like LIBRARY_PATH (for the CMU build program).  */
  1453.     temp = getenv ("LPATH");
  1454. ***************
  1455. *** 2394,2399 ****
  1456. --- 2523,2534 ----
  1457.             n_switches++;
  1458.             break;
  1459.           }
  1460. + #ifdef atarist
  1461. +         case 'z':    /* redirect stderr to a file */
  1462. +           zflag++;
  1463. +           n_switches++;
  1464. +           break;
  1465. + #endif
  1466.           default:
  1467.             n_switches++;
  1468.   
  1469. ***************
  1470. *** 2413,2423 ****
  1471. --- 2548,2569 ----
  1472.        (such as cpp) rather than those of the host system.  */
  1473.     /* Use 2 as fourth arg meaning try just the machine as a suffix,
  1474.        as well as trying the machine and the version.  */
  1475. + #if (defined(atarist) || defined(CROSSATARI) || defined(WEIRD))
  1476. + /* NB defined(WEIRD) should not really be there, its only for my weird setup */
  1477. +   /* We are not using machine_suffix here, so do not make */
  1478. +   /* these prefixes available only when we have one       */
  1479. +   add_prefix (&exec_prefix, standard_exec_prefix, 0, 0, NULL_PTR);
  1480. +   add_prefix (&exec_prefix, standard_exec_prefix_1, 0, 0, NULL_PTR);
  1481. + 
  1482. +   add_prefix (&startfile_prefix, standard_exec_prefix, 0, 0, NULL_PTR);
  1483. +   add_prefix (&startfile_prefix, standard_exec_prefix_1, 0, 0, NULL_PTR);
  1484. + #else
  1485.     add_prefix (&exec_prefix, standard_exec_prefix, 0, 2, NULL_PTR);
  1486.     add_prefix (&exec_prefix, standard_exec_prefix_1, 0, 2, NULL_PTR);
  1487.   
  1488.     add_prefix (&startfile_prefix, standard_exec_prefix, 0, 1, NULL_PTR);
  1489.     add_prefix (&startfile_prefix, standard_exec_prefix_1, 0, 1, NULL_PTR);
  1490. + #endif /* (defined(atarist) || defined(CROSSATARI)) */
  1491.   
  1492.     tooldir_prefix = concat (tooldir_base_prefix, spec_machine, "/");
  1493.   
  1494. ***************
  1495. *** 2637,2642 ****
  1496. --- 2783,2797 ----
  1497.   /* Nonzero means that the input of this command is coming from a pipe.  */
  1498.   static int input_from_pipe;
  1499.   
  1500. + #ifdef atarist
  1501. + /* I don't know why this is necessary.  Recursive calls to do_spec_1
  1502. +    end up ignoring the error code from calls to execute().  That causes
  1503. +    do_spec to get a 0 return value, and do_spec_1("\n"), which causes the
  1504. +    command to get executed again.
  1505. + */
  1506. + int execute_return_error = 0;
  1507. + #endif
  1508. + 
  1509.   /* Process the spec SPEC and run the commands specified therein.
  1510.      Returns 0 if the spec is successfully processed; -1 if failed.  */
  1511.   
  1512. ***************
  1513. *** 2657,2666 ****
  1514. --- 2812,2830 ----
  1515.   
  1516.     /* Force out any unfinished command.
  1517.        If -pipe, this forces out the last command if it ended in `|'.  */
  1518. + #ifdef atarist
  1519. +   if (!value && execute_return_error)
  1520. +     {
  1521. +     value = execute_return_error;
  1522. +     execute_return_error = 0;
  1523. +     }
  1524. + #endif
  1525.     if (value == 0)
  1526.       {
  1527. + #ifndef atarist
  1528.         if (argbuf_index > 0 && !strcmp (argbuf[argbuf_index - 1], "|"))
  1529.       argbuf_index--;
  1530. + #endif
  1531.   
  1532.         if (argbuf_index > 0)
  1533.       value = execute ();
  1534. ***************
  1535. *** 2698,2703 ****
  1536. --- 2862,2918 ----
  1537.          Otherwise, NL, SPC, TAB and % are special.  */
  1538.       switch (inswitch ? 'a' : c)
  1539.         {
  1540. + #if (defined(atarist) || defined(CROSSATARI))
  1541. + /* this stuff added by jrd.  if see '$', expect name of env var, delimited
  1542. +    by '$'.  Find it's value, and subst it in.
  1543. + 
  1544. +    modified by ERS to only collect things that look like names; this
  1545. +    saves e.g. the -$ arg. to cpp from getting munged */
  1546. + 
  1547. +       case '$':
  1548. +       {
  1549. +     char varname[32];        /* should be enough */
  1550. +     char * value;            /* deciphered value string */
  1551. +     char *temp;
  1552. +     int i;
  1553. +     extern char *getenv();
  1554. +     
  1555. +     for (i = 0 ; ((c = *p) != '$') && isalnum(c) && i < 31 ; i++, p++)
  1556. +         varname[i] = c;
  1557. +     varname[i] = '\0';
  1558. +     if (strlen(varname) > 0) /* ++jrb fix */
  1559. +     {
  1560. +                  ++p;    /* skip trailing '$' */
  1561. +         value = getenv(varname); /* ++jrb fix */
  1562. +         if (value)
  1563. +         { /* if value is a path, only consider 1'st component */
  1564. + #ifdef atarist
  1565. +             if((temp = index(value, ',')) == NULL)
  1566. +                 temp = index(value, ';');
  1567. + #else
  1568. +             temp = index(value, ':');
  1569. + #endif
  1570. +             if(temp != NULL)
  1571. +             {
  1572. +                 char *t = (char *) alloca(strlen(value) + 1);
  1573. +                 strcpy(t, value);
  1574. +                 t[temp-value] = '\0';
  1575. +                 do_spec_1(t, 0);
  1576. +             }
  1577. +             else
  1578. +                 do_spec_1(value, 0);
  1579. +         }
  1580. +             else
  1581. +             do_spec_1(".", 0);    /* a compleat kludge... */
  1582. +     }
  1583. +         else
  1584. +         {
  1585. +              obstack_1grow(&obstack, '$');
  1586. +              arg_going = 1;
  1587. +         }
  1588. +       }
  1589. +      break;
  1590. + #endif /* atarist */
  1591.         case '\n':
  1592.       /* End of line: finish any pending argument,
  1593.          then run the pending command if one has been started.  */
  1594. ***************
  1595. *** 2736,2741 ****
  1596. --- 2951,2960 ----
  1597.       if (argbuf_index > 0)
  1598.         {
  1599.           value = execute ();
  1600. + #ifdef atarist
  1601. +         if (!execute_return_error)
  1602. +             execute_return_error = value;
  1603. + #endif
  1604.           if (value)
  1605.             return value;
  1606.         }
  1607. ***************
  1608. *** 3351,3363 ****
  1609. --- 3570,3590 ----
  1610.           break;
  1611.   
  1612.         default:
  1613. + #if 1 /* atarist */
  1614. +         fprintf(stderr, "Bogus char '%c' found at pos %d of spec '%s'\n",
  1615. +         c, (p - spec - 1), spec);
  1616. + #endif
  1617.           abort ();
  1618.         }
  1619.       break;
  1620.   
  1621. + #ifndef atarist
  1622. +       /* on the atari it is important to preserve backslash in spec */
  1623. +       /* so just let it go into default case */
  1624.         case '\\':
  1625.       /* Backslash: treat next character as ordinary.  */
  1626.       c = *p++;
  1627. + #endif
  1628.   
  1629.       /* fall through */
  1630.         default:
  1631. ***************
  1632. *** 3634,3639 ****
  1633. --- 3861,3867 ----
  1634.   
  1635.   /* On fatal signals, delete all the temporary files.  */
  1636.   
  1637. + #ifndef atarist
  1638.   static void
  1639.   fatal_error (signum)
  1640.        int signum;
  1641. ***************
  1642. *** 3645,3650 ****
  1643. --- 3873,3879 ----
  1644.        so its normal effect occurs.  */
  1645.     kill (getpid (), signum);
  1646.   }
  1647. + #endif
  1648.   
  1649.   int
  1650.   main (argc, argv)
  1651. ***************
  1652. *** 3659,3664 ****
  1653. --- 3888,3898 ----
  1654.     char *specs_file;
  1655.     char *p;
  1656.   
  1657. + #ifdef atarist
  1658. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  1659. + /*  _malloczero(1); */     /* zero mallocs by default */
  1660. +   programname = "gcc";
  1661. + #else  
  1662.     p = argv[0] + strlen (argv[0]);
  1663.     while (p != argv[0] && p[-1] != '/') --p;
  1664.     programname = p;
  1665. ***************
  1666. *** 3675,3686 ****
  1667. --- 3909,3922 ----
  1668.     if (signal (SIGPIPE, SIG_IGN) != SIG_IGN)
  1669.       signal (SIGPIPE, fatal_error);
  1670.   #endif
  1671. + #endif /* atarist */
  1672.   
  1673.     argbuf_length = 10;
  1674.     argbuf = (char **) xmalloc (argbuf_length * sizeof (char *));
  1675.   
  1676.     obstack_init (&obstack);
  1677.   
  1678. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1679.     /* Set up to remember the pathname of gcc and any options
  1680.        needed for collect.  We use argv[0] instead of programname because
  1681.        we need the complete pathname.  */
  1682. ***************
  1683. *** 3688,3693 ****
  1684. --- 3924,3930 ----
  1685.     obstack_grow (&collect_obstack, "COLLECT_GCC=", sizeof ("COLLECT_GCC=")-1);
  1686.     obstack_grow (&collect_obstack, argv[0], strlen (argv[0])+1);
  1687.     putenv (obstack_finish (&collect_obstack));
  1688. + #endif
  1689.   
  1690.     /* Choose directory for temp files.  */
  1691.   
  1692. ***************
  1693. *** 3699,3704 ****
  1694. --- 3936,3950 ----
  1695.   
  1696.     process_command (argc, argv);
  1697.   
  1698. + #if (defined(atarist) || defined(CROSSATARI))
  1699. +   {
  1700. +     char *temp;
  1701. +     
  1702. +     if((temp = getenv ("GCCEXEC")))
  1703. +     add_prefix (&exec_prefix, temp, 0, 0, 0);
  1704. +   }
  1705. + #endif
  1706. +   
  1707.     /* Initialize the vector of specs to just the default.
  1708.        This means one element containing 0s, as a terminator.  */
  1709.   
  1710. ***************
  1711. *** 3706,3711 ****
  1712. --- 3952,3961 ----
  1713.     bcopy (default_compilers, compilers, sizeof default_compilers);
  1714.     n_compilers = n_default_compilers;
  1715.   
  1716. + 
  1717. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1718. +   specs_file = 0;
  1719. + #else
  1720.     /* Read specs from a file if there is one.  */
  1721.   
  1722.     machine_suffix = concat (spec_machine, "/", concat (spec_version, "/", ""));
  1723. ***************
  1724. *** 3715,3720 ****
  1725. --- 3965,3971 ----
  1726.     /* Read the specs file unless it is a default one.  */
  1727.     if (specs_file != 0 && strcmp (specs_file, "specs"))
  1728.       read_specs (specs_file);
  1729. + #endif
  1730.   
  1731.     /* If not cross-compiling, look for startfiles in the standard places.  */
  1732.     /* The fact that these are done here, after reading the specs file,
  1733. ***************
  1734. *** 3752,3758 ****
  1735.               0, 0, NULL_PTR);
  1736.         add_prefix (&startfile_prefix,
  1737.                 concat (standard_exec_prefix,
  1738. !                   machine_suffix,
  1739.                     standard_startfile_prefix),
  1740.                 0, 0, NULL_PTR);
  1741.       }               
  1742. --- 4003,4009 ----
  1743.               0, 0, NULL_PTR);
  1744.         add_prefix (&startfile_prefix,
  1745.                 concat (standard_exec_prefix,
  1746. !                   (machine_suffix)? machine_suffix : "",
  1747.                     standard_startfile_prefix),
  1748.                 0, 0, NULL_PTR);
  1749.       }               
  1750. ***************
  1751. *** 3787,3793 ****
  1752. --- 4038,4050 ----
  1753.   
  1754.     if (verbose_flag)
  1755.       {
  1756. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1757. + #include "PatchLev.h"
  1758. +       fprintf (stderr, "gcc-atariST version %s Patchlevel %s\n",
  1759. +            version_string, PatchLevel);
  1760. + #else
  1761.         fprintf (stderr, "gcc version %s\n", version_string);
  1762. + #endif
  1763.         if (n_infiles == 0)
  1764.       exit (0);
  1765.       }
  1766. ***************
  1767. *** 3835,3841 ****
  1768. --- 4092,4103 ----
  1769.   
  1770.         input_basename = input_filename;
  1771.         for (p = input_filename; *p; p++)
  1772. + #ifdef atarist
  1773. +         if (((*p == '/') || (*p == '\\')) && (*(p-1) != ':'))
  1774. +             /* allow both '\' and '/' with  our new lib */
  1775. + #else
  1776.           if (*p == '/')
  1777. + #endif
  1778.             input_basename = p + 1;
  1779.   
  1780.         /* Find a suffix starting with the last period,
  1781. ***************
  1782. *** 3898,3903 ****
  1783. --- 4160,4166 ----
  1784.         int i;
  1785.         int first_time;
  1786.   
  1787. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1788.         /* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
  1789.        for collect.  */
  1790.         putenv_from_prefixes (&exec_prefix, "COMPILER_PATH=");
  1791. ***************
  1792. *** 3928,3933 ****
  1793. --- 4191,4197 ----
  1794.       }
  1795.         obstack_grow (&collect_obstack, "\0", 1);
  1796.         putenv (obstack_finish (&collect_obstack));
  1797. + #endif
  1798.   
  1799.         value = do_spec (link_command_spec);
  1800.         if (value < 0)
  1801. diff -rc gcc-2.5.0/getpwd.c /net/acae127/home/bammi/usr2/gcc/getpwd.c
  1802. *** gcc-2.5.0/getpwd.c    Tue Sep 21 17:35:41 1993
  1803. --- /net/acae127/home/bammi/usr2/gcc/getpwd.c    Fri May 21 08:35:37 1993
  1804. ***************
  1805. *** 14,20 ****
  1806.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1807.      the few exceptions to the general rule here.  */
  1808.   
  1809. ! #if !(defined (POSIX) || defined (USG) || defined (VMS))
  1810.   #include <sys/param.h>
  1811.   extern char *getwd ();
  1812.   #define getcwd(buf,len) getwd(buf)
  1813. --- 14,20 ----
  1814.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1815.      the few exceptions to the general rule here.  */
  1816.   
  1817. ! #if !(defined (POSIX) || defined (USG) || defined (VMS) || defined(atarist) || defined(CROSSHPUX))
  1818.   #include <sys/param.h>
  1819.   extern char *getwd ();
  1820.   #define getcwd(buf,len) getwd(buf)
  1821. ***************
  1822. *** 48,58 ****
  1823.     if (!p && !(errno = failure_errno))
  1824.       {
  1825.         if (! ((p = getenv ("PWD")) != 0
  1826.            && *p == '/'
  1827.            && stat (p, &pwdstat) == 0
  1828.            && stat (".", &dotstat) == 0
  1829.            && dotstat.st_ino == pwdstat.st_ino
  1830. !          && dotstat.st_dev == pwdstat.st_dev))
  1831.   
  1832.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  1833.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  1834. --- 48,61 ----
  1835.     if (!p && !(errno = failure_errno))
  1836.       {
  1837.         if (! ((p = getenv ("PWD")) != 0
  1838. + #ifndef atarist
  1839.            && *p == '/'
  1840.            && stat (p, &pwdstat) == 0
  1841.            && stat (".", &dotstat) == 0
  1842.            && dotstat.st_ino == pwdstat.st_ino
  1843. !          && dotstat.st_dev == pwdstat.st_dev
  1844. ! #endif
  1845. !          ))
  1846.   
  1847.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  1848.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  1849. diff -rc gcc-2.5.0/toplev.c /net/acae127/home/bammi/usr2/gcc/toplev.c
  1850. *** gcc-2.5.0/toplev.c    Wed Oct 20 17:14:48 1993
  1851. --- /net/acae127/home/bammi/usr2/gcc/toplev.c    Tue Oct 26 12:27:33 1993
  1852. ***************
  1853. *** 31,37 ****
  1854.   
  1855.   #include <sys/stat.h>
  1856.   
  1857. ! #ifdef USG
  1858.   #undef FLOAT
  1859.   #include <sys/param.h>
  1860.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1861. --- 31,37 ----
  1862.   
  1863.   #include <sys/stat.h>
  1864.   
  1865. ! #if defined(USG) || defined(CROSSHPUX)
  1866.   #undef FLOAT
  1867.   #include <sys/param.h>
  1868.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1869. ***************
  1870. *** 41,49 ****
  1871. --- 41,57 ----
  1872.   #undef FFS  /* Some systems define this in param.h.  */
  1873.   #else
  1874.   #ifndef VMS
  1875. + #if (!(defined(atarist) || defined(atariminix)))
  1876.   #include <sys/time.h>
  1877.   #include <sys/resource.h>
  1878. + #endif /* !(atarist || atariminix) */
  1879. + #endif
  1880.   #endif
  1881. + 
  1882. + #ifdef atariminix
  1883. + #include <sys/times.h>
  1884. + /* #include <minix/const.h>, avoid dragging this in */
  1885. + #define HZ 60    /* this is the only thing needed from minix/const.h */
  1886.   #endif
  1887.   
  1888.   #include "input.h"
  1889. ***************
  1890. *** 61,66 ****
  1891. --- 69,79 ----
  1892.   #include "bytecode.h"
  1893.   #include "bc-emit.h"
  1894.   
  1895. + #ifdef atarist
  1896. + long _stksize = -1L;    /* for all sizes of ST's */
  1897. +     /* -1 means malloc from own heap and keep all  of memory */
  1898. + #endif /* atarist */
  1899. + 
  1900.   #ifdef VMS
  1901.   /* The extra parameters substantially improve the I/O performance.  */
  1902.   static FILE *
  1903. ***************
  1904. *** 791,797 ****
  1905.   int
  1906.   get_run_time ()
  1907.   {
  1908. ! #ifdef USG
  1909.     struct tms tms;
  1910.   #else
  1911.   #ifndef VMS
  1912. --- 804,813 ----
  1913.   int
  1914.   get_run_time ()
  1915.   {
  1916. ! #ifdef atarist
  1917. !   long now;
  1918. ! #else
  1919. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1920.     struct tms tms;
  1921.   #else
  1922.   #ifndef VMS
  1923. ***************
  1924. *** 806,816 ****
  1925.       } vms_times;
  1926.   #endif
  1927.   #endif
  1928.   
  1929.     if (quiet_flag)
  1930.       return 0;
  1931.   
  1932. ! #ifdef USG
  1933.     times (&tms);
  1934.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1935.   #else
  1936. --- 822,836 ----
  1937.       } vms_times;
  1938.   #endif
  1939.   #endif
  1940. + #endif
  1941.   
  1942.     if (quiet_flag)
  1943.       return 0;
  1944.   
  1945. ! #ifdef atarist
  1946. !   return(time(NULL) * 1000000);
  1947. ! #else
  1948. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1949.     times (&tms);
  1950.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1951.   #else
  1952. ***************
  1953. *** 823,828 ****
  1954. --- 843,849 ----
  1955.     return (vms_times.proc_user_time + vms_times.proc_system_time) * 10000;
  1956.   #endif
  1957.   #endif
  1958. + #endif
  1959.   }
  1960.   
  1961.   #define TIMEVAR(VAR, BODY)    \
  1962. ***************
  1963. *** 1460,1465 ****
  1964. --- 1481,1487 ----
  1965.     longjmp (float_handler, 1);
  1966.   }
  1967.   
  1968. + #ifndef atarist
  1969.   /* Handler for SIGPIPE.  */
  1970.   
  1971.   static void
  1972. ***************
  1973. *** 1469,1474 ****
  1974. --- 1491,1497 ----
  1975.   {
  1976.     fatal ("output pipe has been closed");
  1977.   }
  1978. + #endif
  1979.   
  1980.   /* Strip off a legitimate source ending from the input string NAME of
  1981.      length LEN. */
  1982. ***************
  1983. *** 1522,1527 ****
  1984. --- 1545,1551 ----
  1985.     putc ('\"', asm_file);
  1986.   }
  1987.   
  1988. + #ifdef SYSV
  1989.   /* Output a file name in the form wanted by System V.  */
  1990.   
  1991.   void
  1992. ***************
  1993. *** 1552,1557 ****
  1994. --- 1576,1582 ----
  1995.   #endif
  1996.   #endif
  1997.   }
  1998. + #endif
  1999.   
  2000.   /* Routine to build language identifier for object file. */
  2001.   static void
  2002. ***************
  2003. *** 1664,1670 ****
  2004. --- 1689,1699 ----
  2005.       {
  2006.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2007.         strcpy (dumpname, dump_base_name);
  2008. + #ifndef atarist
  2009.         strcat (dumpname, ".jump");
  2010. + #else
  2011. +       strcat (dumpname, ".jmp");
  2012. + #endif
  2013.         jump_opt_dump_file = fopen (dumpname, "w");
  2014.         if (jump_opt_dump_file == 0)
  2015.       pfatal_with_name (dumpname);
  2016. ***************
  2017. *** 1686,1692 ****
  2018. --- 1715,1725 ----
  2019.       {
  2020.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2021.         strcpy (dumpname, dump_base_name);
  2022. + #ifndef atarist
  2023.         strcat (dumpname, ".loop");
  2024. + #else
  2025. +       strcat (dumpname, ".lop");
  2026. + #endif
  2027.         loop_dump_file = fopen (dumpname, "w");
  2028.         if (loop_dump_file == 0)
  2029.       pfatal_with_name (dumpname);
  2030. ***************
  2031. *** 1697,1703 ****
  2032. --- 1730,1740 ----
  2033.       {
  2034.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2035.         strcpy (dumpname, dump_base_name);
  2036. + #ifndef atarist
  2037.         strcat (dumpname, ".cse2");
  2038. + #else
  2039. +       strcat (dumpname, ".cs2");
  2040. + #endif
  2041.         cse2_dump_file = fopen (dumpname, "w");
  2042.         if (cse2_dump_file == 0)
  2043.       pfatal_with_name (dumpname);
  2044. ***************
  2045. *** 1708,1714 ****
  2046. --- 1745,1755 ----
  2047.       {
  2048.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2049.         strcpy (dumpname, dump_base_name);
  2050. + #ifndef atarist
  2051.         strcat (dumpname, ".flow");
  2052. + #else
  2053. +       strcat (dumpname, ".flo");
  2054. + #endif
  2055.         flow_dump_file = fopen (dumpname, "w");
  2056.         if (flow_dump_file == 0)
  2057.       pfatal_with_name (dumpname);
  2058. ***************
  2059. *** 1719,1725 ****
  2060. --- 1760,1770 ----
  2061.       {
  2062.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  2063.         strcpy (dumpname, dump_base_name);
  2064. + #ifndef atarist
  2065.         strcat (dumpname, ".combine");
  2066. + #else
  2067. +       strcat (dumpname, ".cmb");
  2068. + #endif
  2069.         combine_dump_file = fopen (dumpname, "w");
  2070.         if (combine_dump_file == 0)
  2071.       pfatal_with_name (dumpname);
  2072. ***************
  2073. *** 1730,1736 ****
  2074. --- 1775,1785 ----
  2075.       {
  2076.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  2077.         strcpy (dumpname, dump_base_name);
  2078. + #ifndef atarist
  2079.         strcat (dumpname, ".sched");
  2080. + #else
  2081. +       strcat (dumpname, ".sch");
  2082. + #endif
  2083.         sched_dump_file = fopen (dumpname, "w");
  2084.         if (sched_dump_file == 0)
  2085.       pfatal_with_name (dumpname);
  2086. ***************
  2087. *** 1741,1747 ****
  2088. --- 1790,1800 ----
  2089.       {
  2090.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2091.         strcpy (dumpname, dump_base_name);
  2092. + #ifndef atarist
  2093.         strcat (dumpname, ".lreg");
  2094. + #else
  2095. +       strcat (dumpname, ".lrg");
  2096. + #endif
  2097.         local_reg_dump_file = fopen (dumpname, "w");
  2098.         if (local_reg_dump_file == 0)
  2099.       pfatal_with_name (dumpname);
  2100. ***************
  2101. *** 1752,1758 ****
  2102. --- 1805,1815 ----
  2103.       {
  2104.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  2105.         strcpy (dumpname, dump_base_name);
  2106. + #ifndef atarist
  2107.         strcat (dumpname, ".greg");
  2108. + #else
  2109. +       strcat (dumpname, ".grg");
  2110. + #endif
  2111.         global_reg_dump_file = fopen (dumpname, "w");
  2112.         if (global_reg_dump_file == 0)
  2113.       pfatal_with_name (dumpname);
  2114. ***************
  2115. *** 1763,1769 ****
  2116. --- 1820,1830 ----
  2117.       {
  2118.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 8);
  2119.         strcpy (dumpname, dump_base_name);
  2120. + #ifndef atarist
  2121.         strcat (dumpname, ".sched2");
  2122. + #else
  2123. +       strcat (dumpname, ".sc2");
  2124. + #endif
  2125.         sched2_dump_file = fopen (dumpname, "w");
  2126.         if (sched2_dump_file == 0)
  2127.       pfatal_with_name (dumpname);
  2128. ***************
  2129. *** 1774,1780 ****
  2130. --- 1835,1845 ----
  2131.       {
  2132.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  2133.         strcpy (dumpname, dump_base_name);
  2134. + #ifndef atarist
  2135.         strcat (dumpname, ".jump2");
  2136. + #else
  2137. +       strcat (dumpname, ".jp2");
  2138. + #endif
  2139.         jump2_opt_dump_file = fopen (dumpname, "w");
  2140.         if (jump2_opt_dump_file == 0)
  2141.       pfatal_with_name (dumpname);
  2142. ***************
  2143. *** 1798,1804 ****
  2144. --- 1863,1873 ----
  2145.       {
  2146.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  2147.         strcpy (dumpname, dump_base_name);
  2148. + #ifndef atarist
  2149.         strcat (dumpname, ".stack");
  2150. + #else
  2151. +       strcat (dumpname, ".stk");
  2152. + #endif
  2153.         stack_reg_dump_file = fopen (dumpname, "w");
  2154.         if (stack_reg_dump_file == 0)
  2155.       pfatal_with_name (dumpname);
  2156. ***************
  2157. *** 2919,2930 ****
  2158. --- 2988,3009 ----
  2159.     int version_flag = 0;
  2160.     char *p;
  2161.   
  2162. + #ifdef atarist
  2163. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  2164. + /*  _malloczero(1); */     /* zero mallocs by default */
  2165. + #endif  
  2166. + 
  2167.     /* save in case md file wants to emit args as a comment.  */
  2168.     save_argc = argc;
  2169.     save_argv = argv;
  2170.   
  2171.     p = argv[0] + strlen (argv[0]);
  2172. + #ifndef atarist
  2173.     while (p != argv[0] && p[-1] != '/') --p;
  2174. + #else
  2175. +   while (p != argv[0] && ((p[-1] != '/') && (p[-1] != '\\') &&
  2176. +               (p[-1] != ':'))) --p;
  2177. + #endif
  2178.     progname = p;
  2179.   
  2180.   #ifdef RLIMIT_STACK
  2181. ***************
  2182. *** 2941,2949 ****
  2183. --- 3020,3030 ----
  2184.   
  2185.     signal (SIGFPE, float_signal);
  2186.   
  2187. + #ifndef atarist
  2188.   #ifdef SIGPIPE
  2189.     signal (SIGPIPE, pipe_closed);
  2190.   #endif
  2191. + #endif
  2192.   
  2193.     decl_printable_name = decl_name;
  2194.     lang_expand_expr = (struct rtx_def *(*)()) do_abort;
  2195. ***************
  2196. *** 3042,3047 ****
  2197. --- 3123,3140 ----
  2198.         else if (!strcmp (str, "dumpbase"))
  2199.           {
  2200.             dump_base_name = argv[++i];
  2201. + #ifdef atarist
  2202. +           /* dump_base_name will typically be 'foo.c' here.
  2203. +              Need to truncate at the '.', cause dots mean 
  2204. +              something here
  2205. +            */
  2206. +               {
  2207. +               char * n = dump_base_name;
  2208. +           for ( ; ((*n) && (*n != '.')) ; )
  2209. +                       n++;
  2210. +                   *n = '\0';
  2211. +           }
  2212. + #endif
  2213.           }
  2214.         else if (str[0] == 'd')
  2215.           {
  2216. ***************
  2217. *** 3473,3479 ****
  2218. --- 3566,3578 ----
  2219.        option flags in use.  */
  2220.     if (version_flag)
  2221.       {
  2222. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  2223. + #include "PatchLev.h"
  2224. +         fprintf (stderr, "%s version %s-atariST Patchlevel %s",
  2225. +          language_string, version_string, PatchLevel);
  2226. + #else
  2227.         fprintf (stderr, "%s version %s", language_string, version_string);
  2228. + #endif
  2229.   #ifdef TARGET_VERSION
  2230.         TARGET_VERSION;
  2231.   #endif
  2232. ***************
  2233. *** 3498,3503 ****
  2234. --- 3597,3604 ----
  2235.     if (output_bytecode)
  2236.       bc_write_file (stdout);
  2237.   
  2238. + #if (!(defined(atarist) || defined(atariminix)))
  2239. + #if (!(defined(CROSSHPUX)))
  2240.   #ifndef OS2
  2241.   #ifndef VMS
  2242.     if (flag_print_mem)
  2243. ***************
  2244. *** 3516,3521 ****
  2245. --- 3617,3624 ----
  2246.       }
  2247.   #endif /* not VMS */
  2248.   #endif /* not OS2 */
  2249. + #endif
  2250. + #endif
  2251.   
  2252.     if (errorcount)
  2253.       exit (FATAL_EXIT_CODE);
  2254. ***************
  2255. *** 3627,3629 ****
  2256. --- 3730,3763 ----
  2257.   
  2258.     fprintf (stderr, "\n");
  2259.   }
  2260. + 
  2261. + #ifdef atarist
  2262. + void atari_output_filename(file, filename)
  2263. + FILE *file;
  2264. + char *filename;
  2265. + {
  2266. +     if( (!file) || (!filename) ) return;
  2267. +     for(; *filename; filename++)
  2268. +     {
  2269. +     if(*filename == '\\') putc('\\', file);
  2270. +     putc(*filename, file);
  2271. +     }
  2272. + }
  2273. + 
  2274. + #include <string.h>
  2275. + 
  2276. + char *atari_filename_nondirectory(p)
  2277. + char *p;
  2278. + {
  2279. +     char *s;
  2280. +     
  2281. +     for(s = p + strlen(p); s != p; --s)
  2282. +     {
  2283. +     if((*s == '/') || (*s == '\\'))
  2284. +         break;
  2285. +     }
  2286. +     
  2287. +     return (s == p) ? p : s+1;
  2288. + }
  2289. + 
  2290. + #endif
  2291. diff -rc gcc-2.5.0/varasm.c /net/acae127/home/bammi/usr2/gcc/varasm.c
  2292. *** gcc-2.5.0/varasm.c    Thu Oct 21 13:14:24 1993
  2293. --- /net/acae127/home/bammi/usr2/gcc/varasm.c    Tue Oct 26 08:34:53 1993
  2294. ***************
  2295. *** 1354,1370 ****
  2296.   assemble_external_libcall (fun)
  2297.        rtx fun;
  2298.   {
  2299. ! #ifdef ASM_OUTPUT_EXTERNAL_LIBCALL
  2300.     if (!output_bytecode)
  2301. !     {
  2302. !       /* Declare library function name external when first used, if nec.  */
  2303.         if (! SYMBOL_REF_USED (fun))
  2304. !     {
  2305. !       SYMBOL_REF_USED (fun) = 1;
  2306. !       ASM_OUTPUT_EXTERNAL_LIBCALL (asm_out_file, fun);
  2307. !     }
  2308. !     }
  2309.   #endif
  2310.   }
  2311.   
  2312.   /* Declare the label NAME global.  */
  2313. --- 1354,1370 ----
  2314.   assemble_external_libcall (fun)
  2315.        rtx fun;
  2316.   {
  2317. !   /* Declare library function name external when first used, if nec.  */
  2318.     if (!output_bytecode)
  2319. !   {
  2320.         if (! SYMBOL_REF_USED (fun))
  2321. !       {
  2322. !           SYMBOL_REF_USED (fun) = 1;
  2323. ! #ifdef ASM_OUTPUT_EXTERNAL_LIBCALL
  2324. !           ASM_OUTPUT_EXTERNAL_LIBCALL (asm_out_file, fun);
  2325.   #endif
  2326. +       }
  2327. +   }
  2328.   }
  2329.   
  2330.   /* Declare the label NAME global.  */
  2331. ***************
  2332. *** 2814,2819 ****
  2333. --- 2814,2822 ----
  2334.        rtx x;
  2335.   {
  2336.     struct rtx_const val0, val1;
  2337. + 
  2338. +   if (XEXP (x, 0) == pc_rtx || XEXP (x, 1) == pc_rtx)
  2339. +     return XEXP (x, 0) == XEXP (x, 1) ? const0_rtx : x;
  2340.   
  2341.     decode_rtx_const (GET_MODE (x), XEXP (x, 0), &val0);
  2342.     decode_rtx_const (GET_MODE (x), XEXP (x, 1), &val1);
  2343.